home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 6
/
006.d81
/
election doc
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
5KB
|
124 lines
10 rem *** election doc ***
11 rem *** by john beltrami ***
12 rem *** translated for the 64 by ***
13 rem *** donna k. woody ***
20 poke53280,9:poke53281,7:printchr$(144):printchr$(14):printchr$(8):s=65520
21 poke783,peek(783)and254
30 printchr$(147)
40 gosub2000
50 print"[147]load"chr$(34)"elec. night star"chr$(34)",8":print"run"
60 poke631,13:poke632,13:poke198,2:end
1500 rem *** page interrupt ***
1501 poke783,peek(783)and254
1510 poke781,23:poke782,5:syss:print"[208]ress <[211][208][193][195][197] [194][193][210]> to continue.";
1520 poke198,0:wait198,1:gety$
1530 printchr$(147)
1540 return
2000 rem *** text dump ***
2001 poke781,2:poke782,14:syss:print"[129][197][204][197][195][212][201][207][206][160][206][201][199][200][212]"
2002 poke781,4:poke782,13:syss:print"by [202]ohn [194]eltrami"
2003 poke781,6:poke782,4:syss:print"[212]ranslated for the [195]ommodore by"
2004 poke781,8:poke782,14:syss:print"[196]onna [203]. [215]oody[144]"
2018 print:print
2019 print" [212]he [213]nited [211]tates will not elect a":print
2021 print"[208]resident in [206]ovember! [201]n fact, we":print
2024 print"will not elect the [208]resident at all.":print
2028 print"[201]nstead, a select group of 538 state":print
2032 print"political party members will gather in":print
2040 print"[196]ecember and choose our next [208]resident."
2043 gosub1500
2045 print" [201]t may seem crazy, but it is all":print
2049 print"true. [217]ou see, we live in a":print
2053 print"representative democracy and not a true":print
2057 print"democracy. [212]he [195]onstitution of the":print
2061 print"[213]nited [211]tates provides for the election":print
2065 print"of the members of the electoral college":print
2069 print"on that vital [212]uesday in [206]ovember every":print
2073 print"four years. [212]he [208]residential candidate":print
2077 print"that accumulates the greatest number of":print
2086 print"personal votes in a state triggers the":print
2090 print"election of a slate of electoral":print
2092 gosub1500
2094 print"college members that will represent":print
2098 print"that candidate in a private election":print
2102 print"held in early [196]ecember. [212]he electoral":print
2106 print"college members usually cast all their":print
2110 print"votes for the candidate that earned":print
2114 print"their allegiance, thus preserving the":print
2118 print"illusion that we directly elect the":print
2122 print"highest ranking official in the free":print
2127 print"world. [212]he electoral college is a":print
2131 print"vestige of our historical roots,":print
2135 print"dormant in our collective memories":print
2137 gosub1500
2139 print"until the [208]residential campaigns heat":print
2143 print"up and the political experts remind us":print
2151 print"that political power lies in the":print
2155 print"western and sunbelt states. [201]t is now":print
2159 print"possible that a successful presidential":print
2163 print"candidate could win the election and":print
2168 print"not carry a single northeast-industrial":print
2172 print"state due to the re-distribution of":print
2180 print"population and, you guessed it, the":print
2184 print"electoral votes that are tied to state":print
2188 print"population figures."
2190 gosub1500
2192 print" [215]e generally follow political":print
2196 print"campaigns with a gradually increasing":print
2200 print"sense of interest, low at first,":print
2204 print"building through the summer and the":print
2209 print"party conventions and finally whipping":print
2213 print"up into a frenzy in [206]ovember. [197]ven as":print
2217 print"a schoolboy, [201] felt obligated to fight":print
2225 print"the seduction of the sandman until the":print
2229 print"television announcers broadcasted the":print
2233 print"late, almost-final results and labelled":print
2237 print"a candidate as a probable winner. [201]":print
2240 gosub1500
2241 print"wrote [197][204][197][195][212][201][207][206][160][206][201][199][200][212] so that [201] could":print
2245 print"follow the election night returns at a":print
2250 print"deeper level and, perhaps, interject my":print
2258 print"own insight and guesswork into the":print
2262 print"process and pick the eventual winner":print
2266 print"before the 'experts'.":print
2270 print" [197][204][197][195][212][201][207][206][160][206][201][199][200][212] is a tool that":print
2274 print"allows you to enter election returns":print
2276 print"and talley the results. [206]ot much":print
2282 print"improvement over a pad and pencil,":print
2286 print"right? [212]o make the program useful, [201]":print
2287 gosub1500
2291 print"included the size of the electoral":print
2295 print"delegation that each state and the":print
2299 print"[196]istrict of [195]olumbia is entitled to":print
2302 print"under the [195]onstitution and the":print
2307 print"political party that captured each":print
2311 print"state's delegation in the last six":print
2315 print"presidential elections. [215]hen you type":print
2319 print"in popular vote counts, you actually":print
2323 print"mimic the electoral college at work.":print
2327 print"[212]he party that gains an advantage at":print
2336 print"the polls garners that state's electoral"
2338 gosub1500
2340 print"votes, whether the margin was":print
2344 print"substantial or razor-thin.":print
2348 print" [211]uppose that, contrary to":print
2352 print"conventional wisdom, you suspect that":print
2356 print"the [196]emocratic ticket will do well in":print
2360 print"the western states. [217]ou can enter vote":print
2364 print"counts with that bias in mind and test":print
2368 print"the effect of your suspicions on the":print
2373 print"course of the election. [210]emember, 270":print
2375 print"electoral college votes are required to":print
2385 print"elect a [208]resident. [217]our opinion is":print
2387 gosub1500
2389 print"just as valid as any other voter or,":print
2393 print"dare [201] say it, any professional":print
2397 print"pollster. [193]t least until the first":print
2401 print"[215]ednesday after the first [212]uesday in":print
2405 print"[206]ovember, or do you want to count that":print
2409 print"funny election they hold at the":print
2414 print"'college' in [196]ecmeber as well?":print
2422 print" [207]nly in [193]merica!"
2430 gosub1500
2440 return